home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Nordlicht Spiele
/
Nordlicht Spiele 05-04 (19xx)(Nordlicht)(DE)(PD).zip
/
Nordlicht Spiele 05-04 (19xx)(Nordlicht)(DE)(PD).adf
/
IQ-Test
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1996-12-24
|
12KB
|
451 lines
start:
SCREEN 1,640,250,3,2
WINDOW 1,"Intelligenztest by JK & TL",,6,1
PALETTE 4,1,0.13,0.93
PALETTE 5,0.53,0.8,0
PALETTE 6,0.8,0.6,0.53
COLOR 3,2:LOCATE 6,34
PRINT "IQ-Test":LOCATE 8,36
PRINT "by":LOCATE 10,28
PRINT "Jörg Karisch (Eagle)":LOCATE 12,28
PRINT "with some ideas from":LOCATE 14,28
PRINT "T(ohne h)orsten Lang":LOCATE 16,23
PRINT "for the new PublicDomain-Reihe":LOCATE 18,29
PRINT "date:27-29.08.1988":LOCATE 22,55
PRINT "Jörg Karisch":LOCATE 24,55
PRINT "Reutersbrunnenstr.47":LOCATE 26,55
PRINT "8500 Nürnberg 80":COLOR 1,2:LOCATE 22,36
PRINT "(c) Copyright by : "
FOR i=1 TO 55
FOR j=0 TO 6
COLOR j,2:LOCATE 10,41:PRINT "(Eagle)"
LOCATE 14,29:PRINT "(ohne h)"
NEXT j
NEXT i
CLS
weiter:
x=0:y=0:t=0:q=0
COLOR 3,2:LOCATE 2,5
PRINT "Willkommen beim Intelligenztest":FOR i=1 TO 3000:NEXT i
COLOR 1,2:LOCATE 4,5:PRINT "Der Computer stellt Ihnen nun nacheinander einige Fragen."
LOCATE 6,5:PRINT "Darauf müssen Sie diese in dem angegebenen Bereich"
LOCATE 8,5:PRINT "möglichst kurz und genau beantworten.Sie erhalten pro Frage"
LOCATE 10,5:PRINT "40 Sekunden Zeit,die (richtige ?) Antwort einzugeben."
LOCATE 12,5:PRINT "Zum Schluß des 18-Fragen-Tests zeigt Ihnen der Computer die richtigen"
LOCATE 14,5:PRINT "Lösungen und wie Ihre Bewertung ausfällt."
FOR i=1 TO 100
FOR j=0 TO 6
COLOR j,2:LOCATE 18,10:PRINT "V I E L S P A S S ! !"
LOCATE 22,5:PRINT "(wenn gelesen,bitte Tastendruck !)"
GOSUB warte
NEXT j
NEXT i
Haupt:
ON TIMER(40) GOSUB Zeitum
IF t=0 GOTO Haupt1
IF z$=a$ OR z$=b$ OR z$=c$ THEN x=x+1:GOTO Haupt1
y=y+1
Haupt1:
t=t+1
IF t=2 GOTO frag2
IF t=3 GOTO frag3
IF t=4 GOTO frag4
IF t=5 GOTO frag5
IF t=6 GOTO frag6
IF t=7 GOTO frag7
IF t=8 GOTO frag8
IF t=9 GOTO frag9
IF t=10 GOTO frag10
IF t=11 GOTO frag11
IF t=12 GOTO frag12
IF t=13 GOTO frag13
IF t=14 GOTO frag14
IF t=15 GOTO frag15
IF t=16 GOTO frag16
IF t=17 GOTO frag17
IF t=18 GOTO frag18
IF t=19 GOTO Haupt2
GOTO frag1
Haupt2:
CLS
COLOR 3,2:LOCATE 5,5:PRINT "E N D E des Frageteils"
COLOR 1,2:LOCATE 7,5:PRINT "Falls Sie nun die Auflösungen der Fragen wünschen, geben Sie ":LOCATE 9,5
PRINT "nachfolgend <ja> ein .":LOCATE 11,5
PRINT "Wenn Sie Ihre Auswertung gleich wollen, geben Sie <nein> ein."
COLOR 4,2:LOCATE 14,5:PRINT "Eingabe :"
COLOR 1,2:LOCATE 14,15:INPUT g$
t=0:p=x:n=y
IF g$="ja" GOTO aufloes
IF g$="nein" GOTO auswertung
IF g$<>"ja"OR g$<>"nein" GOTO Haupt2
frag1:
t=1:GOSUB frage
PRINT "Wenn Sie abends um 20 Uhr zu Bett gehen und den Wecker so":LOCATE 7,4
PRINT "einstellen, daß Sie morgens um 9 Uhr aufstehen, wieviele ":LOCATE 9,4
PRINT "Stunden können Sie dann bis zum Klingeln schlafen ?":LOCATE 11,4
PRINT "(Eingabe : <x Std.> )"
IF q=1 THEN RETURN
GOTO antw
frag2:
GOSUB frage
PRINT "Gibt es in England den 17.Juni ?":LOCATE 7,4
PRINT "(Eingabe : <ja> / <nein> )"
IF q=1 THEN RETURN
GOTO antw
frag3:
GOSUB frage
PRINT "Wieviele Geburtstage hat ein 60-jähriger Mensch ?":LOCATE 7,4
PRINT "(Eingabe : <eine Zahl> )"
IF q=1 THEN RETURN
GOTO antw
frag4:
GOSUB frage
PRINT "Einige Monate haben 30 Tage, andere 31 Tage.":LOCATE 7,4
PRINT "Wieviele Monate haben 28 Tage ?":LOCATE 9,4
PRINT "(Eingabe : <kurzes Wort> )"
IF q=1 THEN RETURN
GOTO antw
frag5:
GOSUB frage
PRINT "Der Arzt gibt Ihnen 3 Tabletten und sagt : Nehmen Sie jede halbe":LOCATE 7,4
PRINT "Stunde eine Tablette. Wielange reichen die Tabletten ?":LOCATE 9,4
PRINT "(Eingabe : <x Std.> )"
IF q=1 THEN RETURN
GOTO antw
frag6:
GOSUB frage
PRINT "Sie haben nur ein Streichholz und betreten einen Raum, in dem sich":LOCATE 7,4
PRINT "eine Karbidlampe,eine Öllampe und ein Kohleofen befinden.":LOCATE 9,4
PRINT "Was würden sie zuerst anzünden ?":LOCATE 11,4
PRINT "(Eingabe : <Gegenstand ohne Artikel> )"
IF q=1 THEN RETURN
GOTO antw
frag7:
GOSUB frage
PRINT "Ein Mann hat ein 4-eckiges, rechtwinkliges Haus. Jede Seite zeigt":LOCATE 7,4
PRINT "nach Süden. Welche Farbe hat ein Bär, der draußen vorbei kommt ?":LOCATE 9,4
PRINT "(Eingabe : <Farbe> )"
IF q=1 THEN RETURN
GOTO antw
frag8:
GOSUB frage
PRINT "Teilen Sie 30 durch 1/2 und zählen Sie 10 dazu.":LOCATE 7,4
PRINT "Wieviel ergibt das ?":LOCATE 9,4
PRINT "(Eingabe : <eine Zahl> )"
IF q=1 THEN RETURN
GOTO antw
frag9:
GOSUB frage
PRINT "Ein Bauer hat 17 Schafe.Alle sterben bis auf neun.":LOCATE 7,4
PRINT "Wieviele bleiben übrig ?":LOCATE 9,4
PRINT "(Eingabe : <eine Zahl> )"
IF q=1 THEN RETURN
GOTO antw
frag10:
GOSUB frage
PRINT "Ist es in der UdSSR erlaubt, daß ein Mann die Schwester seiner":LOCATE 7,4
PRINT "Witwe heiratet ?":LOCATE 9,4
PRINT "(Eingabe : <ja> / <nein> )"
IF q=1 THEN RETURN
GOTO antw
frag11:
GOSUB frage
PRINT "Was war am 6.12.1945 ?":LOCATE 7,4
PRINT "(Eingabe : <ein Wort> )"
IF q=1 THEN RETURN
GOTO antw
frag12:
GOSUB frage
PRINT "Wieviele 9er sind in den Zahlen 1 - 100 enthalten ?":LOCATE 7,4
PRINT "(Eingabe : <eine Zahl> )"
IF q=1 THEN RETURN
GOTO antw
frag13:
GOSUB frage
PRINT "Wenn ein Nachtwächter am Tage stirbt, bekommt er dann eine Rente ?":LOCATE 7,4
PRINT "(Eingabe : <ja> / <nein> )"
IF q=1 THEN RETURN
GOTO antw
frag14:
GOSUB frage
PRINT "Kann ein Mann der westlich von New York, westlich vom":LOCATE 7,4
PRINT "Mississipi begraben sein ?":LOCATE 9,4
PRINT "(Eingabe : <ja> / <nein> )"
IF q=1 THEN RETURN
GOTO antw
frag15:
GOSUB frage
PRINT "Wer kann sagen : Du bist mein Sohn, aber ich nicht dein Vater ?":LOCATE 7,4
PRINT "(Eingabe : <ein Wort ohne Artikel> )"
IF q=1 THEN RETURN
GOTO antw
frag16:
GOSUB frage
PRINT "Ein Flugzeug stürzt auf der deutsch-italienischen Grenze ab.":LOCATE 7,4
PRINT "Wer muß das Wrack beseitigen ?":LOCATE 9,4
PRINT "(Eingabe : <ein Wort> )"
IF q=1 THEN RETURN
GOTO antw
frag17:
GOSUB frage
PRINT "Ein Ochse steht mit den Vorderbeinen in der DDR,mit den ":LOCATE 7,4
PRINT "Hinterbeinen in der BRD. Wer bekommt die Milch ?":LOCATE 9,4
PRINT "(Eingabe : <ein Wort> )"
IF q=1 THEN RETURN
GOTO antw
frag18:
GOSUB frage
PRINT "Berlin schreibt man am Anfang mit <B> und hinten mit <h> .":LOCATE 7,4
PRINT "Stimmt das ?":LOCATE 9,4
PRINT "(Eingabe : <ja> / <nein> )"
IF q=1 THEN RETURN
GOTO antw
frage:
CLS:COLOR 3,2:LOCATE 3,4
PRINT t;". Frage:":COLOR 1,2:LOCATE 5,4
RETURN
warte:
d$=INKEY$
IF d$="" THEN RETURN
GOTO Haupt
antw:
TIMER ON
COLOR 4,2:LOCATE 17,4
PRINT "Antwort :":COLOR 1,2:LOCATE 19,4
PRINT "(Falls keine zur Hand ,<RETURN> drücken)":LOCATE 17,14
INPUT z$
TIMER OFF
IF t=1 GOTO auswert1
IF t=2 GOTO auswert2
IF t=3 GOTO auswert3
IF t=4 GOTO auswert4
IF t=5 GOTO auswert5
IF t=6 GOTO auswert6
IF t=7 GOTO auswert7
IF t=8 GOTO auswert8
IF t=9 GOTO auswert9
IF t=10 GOTO auswert10
IF t=11 GOTO auswert11
IF t=12 GOTO auswert12
IF t=13 GOTO auswert13
IF t=14 GOTO auswert14
IF t=15 GOTO auswert15
IF t=16 GOTO auswert16
IF t=17 GOTO auswert17
IF t=18 GOTO auswert18
auswert1:
a$="1 Std.":b$=a$:c$=a$
GOTO Haupt
auswert2:
a$="ja":b$=a$:c$=a$
GOTO Haupt
auswert3:
a$="1":b$=a$:c$=a$
GOTO Haupt
auswert4:
a$="alle":b$="jeder":c$="zwölf"
GOTO Haupt
auswert5:
a$="1 Std.":b$=a$:c$=a$
GOTO Haupt
auswert6:
a$="Streichholz":b$=a$:c$=a$
GOTO Haupt
auswert7:
a$="weiß":b$=a$:c$=a$
GOTO Haupt
auswert8:
a$="70":b$=a$:c$=a$
GOTO Haupt
auswert9:
a$="9":b$=a$:c$=a$
GOTO Haupt
auswert10:
a$="nein":b$=a$:c$=a$
GOTO Haupt
auswert11:
a$="Nikolaus":b$=a$:c$=a$
GOTO Haupt
auswert12:
a$="19":b$=a$:c$=a$
GOTO Haupt
auswert13:
a$="nein":b$=a$:c$=a$
GOTO Haupt
auswert14:
a$="nein":b$=a$:c$=a$
GOTO Haupt
auswert15:
a$="Mutter":b$=a$:c$=a$
GOTO Haupt
auswert16:
a$="niemand":b$="keiner":c$=a$
GOTO Haupt
auswert17:
a$="niemand":b$="keiner":c$=a$
GOTO Haupt
auswert18:
a$="ja":b$=a$:c$=a$
GOTO Haupt
Zeitum:
CLS
FOR i=1 TO 20
FOR j=0 TO 6
COLOR j,2:LOCATE 7,10:PRINT "Ihre Zeit ist um !!!"
LOCATE 9,10:PRINT "Bitte warten !"
NEXT j
NEXT i
y=y+1
RETURN
schl:
FOR i= 1 TO 100
FOR j=0 TO 6
COLOR j,2:LOCATE 21,10:PRINT "(wenn gelesen,bitte <Leertaste> drücken !)"
d$=INKEY$:IF d$=" " THEN RETURN
NEXT j
NEXT i
RETURN
aufloes:
CLS:q=1:GOSUB frag1:GOSUB richt1:GOSUB schl
CLS:GOSUB frag2:GOSUB richt2:GOSUB schl
CLS:GOSUB frag3:GOSUB richt3:GOSUB schl
CLS:GOSUB frag4:GOSUB richt4:GOSUB schl
CLS:GOSUB frag5:GOSUB richt5:GOSUB schl
CLS:GOSUB frag6:GOSUB richt6:GOSUB schl
CLS:GOSUB frag7:GOSUB richt7:GOSUB schl
CLS:GOSUB frag8:GOSUB richt8:GOSUB schl
CLS:GOSUB frag9:GOSUB richt9:GOSUB schl
CLS:GOSUB frag10:GOSUB richt10:GOSUB schl
CLS:GOSUB frag11:GOSUB richt11:GOSUB schl
CLS:GOSUB frag12:GOSUB richt12:GOSUB schl
CLS:GOSUB frag13:GOSUB richt13:GOSUB schl
CLS:GOSUB frag14:GOSUB richt14:GOSUB schl
CLS:GOSUB frag15:GOSUB richt15:GOSUB schl
CLS:GOSUB frag16:GOSUB richt16:GOSUB schl
CLS:GOSUB frag17:GOSUB richt17:GOSUB schl
CLS:GOSUB frag18:GOSUB richt18:GOSUB schl:CLS
FOR i=1 TO 12
FOR j=0 TO 6
COLOR j,2:LOCATE 10,10:PRINT "E N D E der Auflösungen"
LOCATE 13,10:PRINT "Nun kommt die Bewertung (grins)"
NEXT j
NEXT i
GOTO auswertung
rian:
t=t+1:COLOR 4,2:LOCATE 13,4:PRINT "Die richtige Antwort wäre gewesen :"
COLOR 1,2:LOCATE 15,4:RETURN
richt1:
GOSUB rian
PRINT " 1 Stunde (wenn Sie einen normalen Wecker mit 12-Stunden-":LOCATE 17,4
PRINT "Anzeige haben)":RETURN
richt2:
GOSUB rian
PRINT " ja ":RETURN
richt3:
GOSUB rian
PRINT "Er hat einen Geburtstag.":RETURN
richt4:
GOSUB rian
PRINT "Alle Monate haben 28 Tage.":RETURN
richt5:
GOSUB rian
PRINT " 1 Stunde (jetzt eine,1/2 Stunde später eine,1/2 Stunde später":LOCATE 17,4
PRINT "noch eine Tablette )":RETURN
richt6:
GOSUB rian
PRINT " Streichholz ":RETURN
richt7:
GOSUB rian
PRINT " weiß (denn es ist ein Eisbär,weil das Haus am Nordpol steht)":RETURN
richt8:
GOSUB rian
PRINT " 70 (30 geteilt durch 1/2 ist 60,plus 10 ist 70)":RETURN
richt9:
GOSUB rian
PRINT " 9 ":RETURN
richt10:
GOSUB rian
PRINT " nein (denn der Mann ist bereits tot)":RETURN
richt11:
GOSUB rian
PRINT " Nikolaus":RETURN
richt12:
GOSUB rian
PRINT " 19 ":RETURN
richt13:
GOSUB rian
PRINT " nein (denn ein Toter bekommt keine Rente)":RETURN
richt14:
GOSUB rian
PRINT " nein (denn er lebt ja noch)":RETURN
richt15:
GOSUB rian
PRINT " Mutter ":RETURN
richt16:
GOSUB rian
PRINT " keiner (denn diese Grenze gibt es nicht)":RETURN
richt17:
GOSUB rian
PRINT " keiner (denn ein Ochse gibt keine Milch)":RETURN
richt18:
GOSUB rian
PRINT " ja ( <Berlin> schreibt man am Anfang mit <B> und ":LOCATE 17,4
PRINT " <hinten> schreibt man mit <h> !)":RETURN
auswertung:
CLS:u=0:COLOR 3,2:LOCATE 2,4:PRINT " A U S W E R T U N G : ":COLOR 1,2
lo1:
LOCATE 4,4 :PRINT " 0 Fehler : Hochintelligent":COLOR 1,2
lo2:
LOCATE 6,4 :PRINT " 1 - 2 Fehler : Intelligent":COLOR 1,2
lo3:
LOCATE 8,4 :PRINT " 3 - 4 Fehler : Durchschnittlich Begabt":COLOR 1,2
lo4:
LOCATE 10,4:PRINT " 5 - 6 Fehler : Leicht bekloppt":COLOR 1,2
lo5:
LOCATE 12,4:PRINT " 7 - 8 Fehler : Ein wenig doof":COLOR 1,2
lo6:
LOCATE 14,4:PRINT " 9 - 10 Fehler : Idiot":COLOR 1,2
lo7:
LOCATE 16,4:PRINT " 11 - 12 Fehler : Vollidiot":COLOR 1,2
lo8:
LOCATE 18,4:PRINT " 13 - 15 Fehler : Anstaltsverdächtig":COLOR 1,2
lo9:
LOCATE 20,4:PRINT " 16 - 18 Fehler : Nicht lebensfähig":COLOR 1,2
u=u+1:IF u=80 GOTO Fertig
COLOR 4,2:LOCATE 23,4
PRINT "Sie haben";p;" richtige und";n;" falsche Antworten gegeben !"
LOCATE 25,4:PRINT "Bitte warten !"
COLOR 3,2
IF n=0 GOTO lo1
IF n=1 OR n=2 GOTO lo2
IF n=3 OR n=4 GOTO lo3
IF n=5 OR n=6 GOTO lo4
IF n=7 OR n=8 GOTO lo5
IF n=9 OR n=10 GOTO lo6
IF n=11 OR n=12 GOTO lo7
IF n=13 OR n=14 OR n=15 GOTO lo8
IF n=16 OR n=17 OR n=18 GOTO lo9
Fertig:
CLS:LOCATE 5,5
PRINT "Wir hoffen, dieser nicht ganz ernst zu nehmende Intelligenztest":LOCATE 7,5
PRINT "hat Ihnen wie uns viel Spaß bereitet."
FOR i=1 TO 25
FOR j=0 TO 6
COLOR j,2:LOCATE 10,8:PRINT " Viele Grüße an :":COLOR 3,2
LOCATE 13,5:PRINT "Thomas S.,Thomas G.,Reiner K.,"
LOCATE 15,5:PRINT "The Rolling Fighters Nürnberg,"
LOCATE 17,5:PRINT "und alle AMIGA-User in Bayern"
LOCATE 19,5:PRINT "und im Ausland(z.B.Nord-Deutschland).":COLOR j,2
LOCATE 22,8:PRINT "Jörg Karisch (Eagle) / T(ohne h)orsten Lang":COLOR 1,2
LOCATE 24,5:PRINT "(kein Tastendruck !!)"
NEXT j
NEXT i
FOR i=27 TO 1 STEP-1
FOR j=1 TO 500:NEXT j
LOCATE i,1:PRINT" "
NEXT i
FOR i=1 TO 1500:NEXT i
WINDOW CLOSE 1
SCREEN CLOSE 1
SYSTEM